

                ;
                ;VMAC --
                ;  MACRO ASSEMBLER "MAC" CHANGES TO DISABLE 8080 OPCODES FOR CROSS-ASSEMBLY
                ;    WORK
                ;  THIS PATCH WAS ORIGINALLY SUPPLIED WITH MY MAC MANUAL -- RLC
                ;  THIS IS TO BE PATCHED INTO MAC USING DDT.  AFTER THE PATCH IS COMPLETE,
                ;    PERFORM A "SAVE 46 XMAC.COM" TO CREATE XMAC.COM.
                ;
                ; RESERVED WORD PATCHES ADDED BY SHAWN EVERSON  10/3/81
                ;
                ;
 0019 =         RT	EQU	25	; 8080 REGISTER NAME
 001A =         PT	EQU	26	; PSEUDO OPCODE TYPE
 2561 =         TAREA	EQU	2561H	; FREE AREA IN TOKEN MODULE
 0040 =         TRAIL	EQU	'@'	; CHAR. TO REPLACE LAST LETTER OF RESERVED WORDS WITH
                 
                ;
 2444           	ORG	2444H	; OVERLAY INXH - MOV B,M - RET
 2444 C36125    	JMP	TAREA
                 
                ;
 2561           	ORG	TAREA
                 
                ;  TYPE IS IN THE ACCUMULATOR
 2561 FE19      	CPI	RT	; BELOW RT IF ARITHMETIC OPERATOR
 2563 DA6925    	JC	TYPEOK
 2566 FE1A      	CPI	PT	; PSEUDO OP?
 2568 C0        	RNZ		; RETURN WITH NON-ZERO FLAG
                 
                ;  OTHERWISE, PSEUDO-OP OR ARITHMETIC OP
                TYPEOK:
 2569 23        	INX	H
 256A 46        	MOV	B,M
 256B BF        	CMP	A	; SET ZERO FLAG
 256C C9        	RET
                ;
                ;LOCATION OF RESERVED WORD <IF>
                ;
 214A           	ORG	214AH
 214A 4940      	DB	'I',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <OR>
                ;
 2154           	ORG	2154H
 2154 4F40      	DB	'O',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <AND>
                ;
 2167           	ORG	2167H
 2167 414E40    	DB	'AN',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <END>
                ;
 2185           	ORG	2185H
 2185 454E40    	DB	'EN',TRAIL
                ;
                ; LOCATION OF RESERVED WORD <LOW>
                ;
 219D           	ORG	219DH
 219D 4C4F40    	DB	'LO',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <MOD>
                ;
 21A3           	ORG	21A3H
 21A3 4D4F40    	DB	'MO',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <NOR>
                ;
 21AF           	ORG	21AFH
 21AF 4E4F40    	DB	'NO',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <SET>
                ;
 21DF           	ORG	21DFH
 21DF 534540    	DB	'SE',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <ELSE>
                ;
 220D           	ORG	220DH
 220D 454C5340  	DB	'ELS',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <HIGH>
                ;
 2215           	ORG	2215H
 2215 48494740  	DB	'HIG',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <NAME>
                ;
 2225           	ORG	2225H
 2225 4E414D40  	DB	'NAM',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <PAGE>
                ;
 2229           	ORG	2229H
 2229 50414740  	DB	'PAG',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <LOCAL>
                ;
 225C           	ORG	225CH
 225C 4C4F434140	DB	'LOCA',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <MACRO>
                ;
 2261           	ORG	2261H
 2261 4D41435240	DB	'MACR',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <TITLE>
                ;
 226B           	ORG	226BH
 226B 5449544C40	DB	'TITL',TRAIL
                ;
                ;LOCATION OF RESERVED WORD <PUBLIC>
                ;
 227C           	ORG	227CH
 227C 5055424C49	DB	'PUBLI',TRAIL
                ;
                ;LOCATION OF SIGNON MESSAGE <CP/M MACRO ASSEM 2.0>
                ;
 2CD3           	ORG	2CD3H
 2CD3 43502F4D20	DB	'CP/M MACRO ASSEM 2.',TRAIL
                ;
                ; TYPE OF SOURCE FILE TO EXPECT
                ;
 25DC           	ORG	25DCH
 25DC 564F43    	DB	'VOC'
                ;
 25DF           	END